<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>16</cardCount>
<cardID>5444</cardID>
<listID>12172</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>------ This stack and it's scripts and graphics are copyright 1989,-- Prophecy Software Inc. All rights reserved.---- You may examine this code for your own benifit.-- If you wish to make changes that enhance the stack please make-- them to a copy and contact us at:---- Prophecy Software Inc.-- 3650 Silverside Rd. Suite 3-- Wilmington, DE 19810-- (302) 994-1502---- We will be happy to consider distributing an updated version with-- propper credit given to the author. distribution of copies of this-- stack with un-authorized alterations constitures copyright-- violation and fraud.on idleglobal my_choice, last_message, hit_countglobal bs, su, tt, pt, caput read_message() into the_messageif the_message is empty then exit idleif offset(numtochar(5), the_message) is not 0 thenget send_message(last_message && "•")exit idleend if-- test for read of entire the_messageput the number of chars in the_message into the_lengthif char the_length of the_message is not "•" thenget send_message(numtochar(5))exit idleend ifput word 1 of the_message into command-- move, query to ship at this locationif command is "move" thenput "Incoming..." into card field 1 of card "enemy board"put word 2 of the_message into valueput field value of card "player board" into the_letterput "re" && value && the_letter into last_messageif the_letter is not "" thengo to card "player Card"play boomset icon of button value to 7009get flash("Hit")elsego to card "player Card"play splashset icon of button value to 19123get flash ("Miss")end ifget send_message ("re" && value && the_letter && "•")exit idleend if-- results, answer to a move queryif command is "re" thenput word 2 of the_message into valueput word 3 of the_message into shotif shot is not "•" thenput "Tower Reports Hit..." into card field 1 of card "enemy board"play boomset icon of button value of card "enemy board" to 7009if shot is "B" thenadd 1 to bsif bs is 5 then set hilite of card button bas of card¬"enemy board" to trueend ifif shot is "C" thenadd 1 to caif ca is 4 then set hilite of card button car of card¬"enemy board" to trueend ifif shot is "T" thenadd 1 to ttif tt is 3 then set hilite of card button ttr of card¬"enemy board" to trueend ifif shot is "S" thenadd 1 to suif su is 3 then set hilite of card button sub of card¬"enemy board" to trueend ifif shot is "P" thenadd 1 to ptif pt is 2 then set hilite of card button ptb of card¬"enemy board" to trueend ifadd 1 to hit_countif hit_count is 17 thenget send_message("win" && "•")put "win" into last_messageput "The Enemy is Defeated!" & return & "---Game Over---"¬into card field 1 of card "enemy board"go to card "enemy board"end ifelseput "Tower Reports Miss..." into card field 1 of card "enemy board"play splashset icon of button value of card "enemy board" to 19123end ifget send_message("go" && "•")put "go" into last_messageexit idleend ifif command is "sm" thenput the number of words in the_message into countsubtract 1 from countput word 2 to count of the_message into the_messageput the_message into card field 1 of card "enemy board"exit idleend ifif command is "go" thenshow button 65 of card "enemy board"go to card "enemy board"put "Your Move" & numtochar(13) into ¬card field 1 of card "enemy board"put "Press on Tile to Fire" after card field 1 of card "enemy board"exit idleend if-- start determine who goes firstif command is "st" thenput word 2 of the_message into valueif my_ch
.iso/pc/games/mac/__the_arcade__/sea_hunt/PATs.png){kind=link}